﻿''' <summary>
''' type called after the assemby registration
''' </summary>
''' <remarks></remarks>
Public Interface IRegistrationActor

    Sub act()


End Interface



Public Class RegistrationActorStorage

    Private map As New Dictionary(Of Type, IRegistrationActor)

    Public Function getRegistrationActor(type As Type) As IRegistrationActor
        If map.ContainsKey(type) Then Return map(type)
        Dim instance As IRegistrationActor = Activator.CreateInstance(type)
        map(type) = instance
        Return instance
    End Function


    Public Sub setRegistrationActor(Of T As IRegistrationActor)(instance As T)
        map(GetType(T)) = instance
    End Sub

End Class
